home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aax.d64
/
take away island
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
4KB
|
170 lines
1 PRINT"[147]":POKE53281,0:POKE53280,0
2 PRINTTAB(12)"[158]TAKE AWAY ISLAND[146]"
3 PRINTTAB(15)"CREATED BY"
4 PRINTTAB(15)"JEFFREYS10"
5 PRINTTAB(15)"FEB. 1986"
7 PRINTTAB(4)"PRESS SPACE BAR FOR INSTRUCTIONS"
8 GETB$:IFB$=""THEN8
10 PRINT"[147]"
20 PRINTTAB(6)"YOU ARE ON A DESERTED ISLAND"
30 PRINTTAB(2)"A HELICOPTER HAS COME TO RESCUE YOU"
40 PRINT"YOU MUST CLIMB STAIRS TO THE HELICOPTER"
50 PRINTTAB(4)"YOU DO THIS BY SOLVING PROBLEMS"
60 PRINTTAB(2)"A CORRECT ANSWER WILL MOVE YOU UP ONE"
70 PRINTTAB(2)"A WRONG ANSWER WILL MOVE YOU DOWN ONE"
80 PRINTTAB(10)"IF YOU REACH THE TOP"
90 PRINTTAB(4)"THE HELICOPTER WILL FLY YOU HOME"
100 PRINTTAB(4)"IF YOU FALL OFF THE BOTTOM STEP"
110 PRINTTAB(1)"THE HELICOPTER WILL LEAVE WITHOUT YOU"
120 PRINTTAB(13)"GOOD LUCK!"
130 PRINTTAB(8)"PRESS SPACE BAR TO BEGIN"
140 GETA$:IFA$=""THEN140
150 PRINT"[147]"
155 PRINTTAB(11)"ONE MOMENT PLEASE"
160 POKE53269,0:POKE2040,192
170 FORN=0TO62
180 POKE53271,1:POKE53277,1
190 READQ
200 POKE12288+N,Q:NEXT
205 POKE53248,200:POKE53249,208
210 REM
290 REM
300 POKE53269,0:POKE2041,196
305 POKE53288,1
310 FORN=0TO62
320 POKE53271,3:POKE53277,3
330 READQ
340 POKE12544+N,Q:NEXT
345 POKE53250,248:POKE53251,208
350 REM
430 REM
440 POKE53269,0:POKE2042,200
445 POKE53289,4
450 FORN=0TO62
460 POKE53271,7:POKE53277,7
470 READQ
480 POKE12800+N,Q:NEXT
490 POKE53252,249:POKE53253,176
500 REM
510 POKE53269,0:POKE2043,204
520 POKE53290,5
530 FORN=0TO62
540 POKE53271,15:POKE53277,15
550 READQ
560 POKE13056+N,Q:NEXT
570 POKE53254,200:POKE53255,206
575 POKE53269,15
580 PRINT"[147]"
590 S=1
600 P=25
601 PRINT"[147] TAKE AWAY ISLAND[146]"
602 PRINT"PRESS 1 FOR ONE DIGIT OR 2 FOR TWO DIGIT NUMBERS"
603 GETA$
604 IFA$="1"THENW=1:GOTO620
605 IFA$="2"THENW=2:GOTO620
606 GOTO603
620 PRINT"[147] TAKE AWAY ISLAND[146]"
625 IFW=2THEN642
630 A=INT(RND(1)*6)+3
640 B=INT(RND(0)*A)
641 IFW=1THEN670
642 A=INT(RND(1)*99)
643 IFA<10THEN642
644 B=INT(RND(0)*A)
645 IFB<10THEN644
670 PRINT" WHAT IS"A"-"B
710 INPUT"[145]";C
720 IFC=A-BTHENGOTO760
730 PRINT" NO"A-B"[158]":FORP=1TO750:NEXT
750 S=S-1:GOTO770
760 S=S+1
765 FORP=1TO350:NEXT
770 IFS=0THEN880
780 IFS=1THEN890
790 IFS=2THEN900
800 IFS=3THEN910
810 IFS=4THEN920
820 IFS=5THEN930
830 IFS=6THEN940
840 IFS=7THEN950
850 IFS=8THEN960
860 IFS=9THEN970
870 IFS=10THEN980
880 POKE53254,190:POKE53255,210
885 GOTO1260
890 POKE53254,200:POKE53255,206
895 GOTO620
900 POKE53254,204:POKE53255,202
905 GOTO620
910 POKE53254,209:POKE53255,198
915 GOTO620
920 POKE53254,213:POKE53255,194
925 GOTO620
930 POKE53254,217:POKE53255,191
935 GOTO620
940 POKE53254,221:POKE53255,188
945 GOTO620
950 POKE53254,225:POKE53255,183
955 GOTO620
960 POKE53254,229:POKE53255,179
965 GOTO620
970 POKE53254,232:POKE53255,174
975 GOTO620
980 POKE53254,239:POKE53255,171
985 GOTO1245
990 REM
1180 REM
1200 RETURN
1210 REM
1220 POKE782,X:POKE781,Y
1240 RETURN
1245 POKE53269,7
1260 C=249:D=170:E=53252:F=53253
1270 POKEE,C:POKEF,D
1280 D=D-5
1290 IFD=100THEN1310
1295 FORP=1TO50:NEXT
1300 GOTO1270
1310 POKEE,C:POKEF,D
1320 C=C-5
1330 IFC<5THEN1925
1340 GOTO1310
1925 IFS=10THENGOTO1940
1930 POKE53269,11
1935 IFS=0THENGOTO1950
1940 POKE53269,3
1950 REM
1955 FORR=1TO2000:NEXT
1960 POKE53252,249:POKE53253,176
1970 POKE53254,200:POKE53255,206
1980 POKE53269,15
1990 GOTO590
2000 DATA0,0,0,0,0,0,0,0,63
2001 DATA0,0,63,0,0,255,0,0,255
2002 DATA0,3,255,0,3,255,0,15,255
2003 DATA0,15,255,0,63,255,0,63,255
2004 DATA0,255,255,0,255,255,3,255,255
2005 DATA3,255,255,15,255,255,15,255,255
2006 DATA63,255,255,63,255,255,255,255,255
2007 DATA0,0,0,0,0,0,255,255,0
2008 DATA255,255,0,255,255,0,255,255,0
2009 DATA255,255,0,255,255,0,255,255,0
2010 DATA255,255,0,255,255,0,255,255,0
2011 DATA255,255,0,255,255,0,255,255,0
2012 DATA255,255,0,255,255,0,255,255,0
2013 DATA255,255,0,255,255,0,255,255,0
2014 DATA0,0,0,0,0,0,0,0,0
2015 DATA0,0,0,0,0,0,0,0,0
2016 DATA255,191,224,0,64,0,0,64,1
2017 DATA3,240,2,15,255,254,17,255,4
2018 DATA33,254,8,97,252,0,127,248,0
2019 DATA63,240,0,8,32,0,31,240,0
2020 DATA0,0,0,0,0,0,0,0,0
2021 DATA0,0,0,0,0,0,0,0,0
2022 DATA0,0,0,0,0,0,0,0,0
2023 DATA0,0,0,0,0,0,0,0,0
2024 DATA192,0,0,192,0,0,128,0,0
2025 DATA192,0,0,192,0,0,192,0,0
2026 DATA128,0,0,128,0,0,128,0,0
2027 DATA128,0,0,128,0,0,192,0,0